object frmImagem: TfrmImagem Left = 428 Top = 79 HelpContext = 13 BorderStyle = bsNone Caption = 'Imagens' ClientHeight = 308 ClientWidth = 511 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel3: TPanel Left = 0 Top = 0 Width = 511 Height = 308 Align = alClient BevelWidth = 3 Color = clWhite Ctl3D = False ParentCtl3D = False TabOrder = 0 object Label1: TLabel Left = 330 Top = 204 Width = 159 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Label1' Visible = False end object Label2: TLabel Left = 312 Top = 32 Width = 75 Height = 13 Caption = 'Quem chamou?' Visible = False end object Label3: TLabel Left = 16 Top = 6 Width = 198 Height = 29 Caption = 'Escolher Imagem' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object DirectoryListBox1: TDirectoryListBox Left = 10 Top = 44 Width = 145 Height = 220 Hint = 'Ver foto' FileList = FileListBox1 ItemHeight = 16 TabOrder = 0 OnClick = DirectoryListBox1Click end object FileListBox1: TFileListBox Left = 170 Top = 44 Width = 145 Height = 220 Hint = 'Ver foto' ItemHeight = 13 Mask = '*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf' TabOrder = 1 OnClick = FileListBox1Click OnDblClick = FileListBox1DblClick end object Panel1: TPanel Left = 330 Top = 44 Width = 160 Height = 157 BorderWidth = 1 Color = clWhite TabOrder = 2 object Label5: TLabel Left = 5 Top = 110 Width = 150 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Resolu��o acons.' end object Panel2: TPanel Left = 10 Top = 10 Width = 140 Height = 100 BevelInner = bvLowered Color = clWhite TabOrder = 0 object Image1: TImage Left = 2 Top = 2 Width = 136 Height = 96 Align = alClient end end object CheckBox1: TCheckBox Left = 30 Top = 136 Width = 101 Height = 17 Caption = 'Ajustar � Janela' TabOrder = 1 OnClick = CheckBox1Click end end object FilterComboBox1: TFilterComboBox Left = 170 Top = 274 Width = 145 Height = 21 FileList = FileListBox1 Filter = 'Todos (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.gif;*.jpg;*' + '.jpeg;*.bmp;*.ico;*.emf;*.wmf|Compuserve GIF Image (*.gif)|*.gif' + '|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|I' + 'cons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*' + '.wmf)|*.wmf|Bitmaps (*.bmp) |*.bmp' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object DriveComboBox1: TDriveComboBox Left = 10 Top = 274 Width = 145 Height = 19 DirList = DirectoryListBox1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object BitBtn1: TBitBtn Left = 330 Top = 264 Width = 75 Height = 25 Caption = '&Ok' Default = True ModalResult = 1 TabOrder = 5 OnClick = BitBtn1Click Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 04000000000068010000000000000000000010000000100000008484000008E7 08000000840084848400FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000222220000000000000333330000000000000002211111220000000 0033333333300000000000021111111112000000033333333333000000000021 1144411111200000333300033333300000000021144444111120000033300000 3333300000000211444444111112000333000000333333000000021444414441 1112000330000300033333000000021144111441111200033300333003333300 0000021111111444111200033333333000333300000002111111114411120003 3333333300333300000000211111111441200000333333333003300000000021 1111111441200000333333333003300000000002111111114400000003333333 3300000000000000221111122400000000333333333000000000000000222220 0000000000003333300000000000000000000000000000000000000000000000 0000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 420 Top = 264 Width = 75 Height = 25 Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 6 Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 6666666666666666666666660000666666666666666666666666666666666666 0000666666111116666666666666888886666666000066661199999116666666 6688888888866666000066619999999991666666688888888888666600006619 99999999991666668888888888888666000066199FF999FF9916666688866888 66888666000061999FFF9FFF9991666888866686668888660000619999FFFFF9 99916668888866666888886600006199999FFF99999166688888866688888866 0000619999FFFFF9999166688888666668888866000061999FFF9FFF99916668 8886668666888866000066199FF999FF99166666888668886688866600006619 9999999999166666888888888888866600006661999999999166666668888888 8888666600006666119999911666666666888888888666660000666666111116 6666666666668888866666660000666666666666666666666666666666666666 0000} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 376 Top = 229 Width = 75 Height = 25 Hint = 'Limpar caminho' Caption = '&Limpar' TabOrder = 7 OnClick = BitBtn3Click Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF006FFFFFFFFFFF FFFFFF000000000FFFFFFFF00F0F00000000FFFFFFFFFFFFFFFFFF00000000F0 0FFFFFFFF000F0000000FFFFFFFFF00FFFFFFF0000000F0F00FF07700FFF0F00 0000FFFFFFF07777700FFF00000000F00F07777777700F000000FFFFF8887777 77777000000000F0F8FF8877777777000000FFFFFF8FFF88777777000000FFFF FF8FFFFF88777700000000000008FFFFFF887700000066666668FFFFFFFF8800 0000666666668FFFFFFFFF000000666666668FFFFFFFFF00000066666666688F FFFFFF0000006666666666688FFFFF000000} end end end